      SUBROUTINE GETALLSO(Z,list,filename)
C
C THIS ROUTINE RETRIEVES ALL IRREPS OF A SYMMETRY PACKED DISTRIBUTION
C  AND PLACES THEM IN THE VECTOR Z.  LENGTH IS THE TOTAL LENGTH OF THE
C  LIST, LSTNUM IS THE NUMBER OF THE LIST ON THE MOINTS FILE.
C
CEND
      use mod_iop
C
      INTEGER, intent(in) :: list
      DOUBLE PRECISION, intent(inout) :: Z(*)
      character(len=8), intent(in) :: filename
C
      IF(PREC==8) THEN
         CALL GETALLSO_D(Z, LIST, FILENAME)
      ELSEIF(PREC==4) THEN
         CALL GETALLSO_S(Z, LIST, FILENAME)
      ENDIF
C
      RETURN
      END
